home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
utility
/
memsz320.zip
/
MAGYAR.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-07-26
|
3KB
|
156 lines
/* MAGYAR.CMD: A MEMSIZE telepítése magyar nyelven. */
'@Echo Off'
'CHCP 852'
/* REXXUTIL betöltése */
Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
Call SysLoadFuncs
/* Inicializálás */
Signal On Failure Name FAILURE
Signal On Halt Name HALT
Signal On Syntax Name SYNTAX
Call SysCls
Say 'MEMSIZE telepítése...'
Say ''
/* Komponens-fájlok létezésének vizsgálata */
Language = 'MAGYAR'
Result = SysFileTree( 'MEMSIZE.EXE', 'Files', 'F' )
If Files.0 = 0 Then
Do
Say 'HIBA: MEMSIZE.EXE nem található!'
Signal DONE
End
Result = SysFileTree( Language".DLL", 'Files', 'F' )
If Files.0 = 0 Then
Do
Say 'Hiba: 'Language'.DLL nem található!'
Signal DONE
End
Result = SysFileTree( Language".HLP", 'Files', 'F' )
If Files.0 = 0 Then
Do
Say 'Hiba: 'Language'.HLP nem található!'
Signal DONE
End
/* A célalkönyvtár nevének bekérése */
Default = SysIni('USER', 'MEMSIZE', 'INIPATH' )
If Default = 'ERROR:'
Then Default = 'C:\OS2\Apps'
If SUBSTR(Default,LENGTH(Default),1) <= ' '
Then Default = SUBSTR(Default,1,LENGTH(Default)-1)
Say 'Add meg az alkönyvtár teljes nevét, amelybe a MEMSIZE-ot'
Say ' telepíteni akarod (alapértelmezés: 'Default')! '
Parse Pull Directory
If Directory = "" Then Directory = Default
/* A célalkönyvtár létrehozása, ha szükséges */
Result = SysFileTree( Directory, 'Dirs', 'D' )
If Dirs.0 = 0 Then
Do
Result = SysMkDir( Directory )
if Result == 0 Then
Do
End
Else
Do
Say 'HIBA: Célalkönyvtár nem hozható létre.'
Signal DONE
End
End
Say ''
/* A célgy√jtï nevének bekérése */
Say 'Akarod az Automatikus indítás gy√jtïbe telepíteni? (I/N)'
Pull YesNo
If YesNo = "I" Then
Do
Folder = '<WP_START>'
Say 'Az objektum az Automatikus indítás gy√jtïbe kerül.'
End
Else
Do
Folder = '<WP_DESKTOP>'
Say 'Az objektum a munkaasztalra kerül.'
End
Say ''
/* Régi objektum törlése, ha létezik */
Call SysDestroyObject( '<MEMSIZE>' )
Call SysSleep( 5 )
/* Telepítés elvégzése */
Say 'MEMSIZE másolása a(z) 'Directory' alkönyvtárba...'
Copy MEMSIZE.EXE Directory '1>NUL'
Copy Language".DLL" Directory"\MEMSIZE.DLL" '1>NUL'
Copy Language".HLP" Directory"\MEMSIZE.HLP" '1>NUL'
Copy Language".DOC" Directory"\MEMSIZE.DOC" "1>NUL"
Result = SysFileTree( "HLP2INF.EXE", 'Files', 'F' )
If Files.0 > 0 Then
Do
Result = SysFileTree( Directory"\MEMSIZE.INF", 'Files', 'F' )
If Files.0 > 0 Then
Do
"Erase" Directory"\MEMSIZE.INF"
End
"HLP2INF" Directory"\MEMSIZE.HLP"
End
Result = SysFileTree( "SNAPSHOT.EXE", 'Files', 'F' )
If Files.0 > 0 Then
Do
Copy "SNAPSHOT.EXE" Directory"\SNAPSHOT.EXE" '1>NUL'
End
Say 'Programobjektum létrehozása...'
Type = 'WPProgram'
Title = 'System Resources'
Parms = 'OPEN=DEFAULT;MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
If Result = 1 Then
Say 'Objektum létrehozva! Kész.'
Else
Say 'HIBA: Az objektum nem jött létre.'
Signal DONE
FAILURE:
Say 'REXX hiba.'
Signal DONE
HALT:
Say 'REXX leállás.'
Signal DONE
SYNTAX:
Say 'REXX szintaktikai hiba.'
Signal DONE
DONE:
Exit